home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / formpas.zip / DEMO.OLD next >
Text File  |  1993-04-14  |  1KB  |  46 lines
  1. { This file was used as an input file for FormPas. }
  2. { Altered code taken from turbo's grdemo.pas }
  3. { Original file is DEMO.OLD, new file is DEMO.PAS }
  4. { Try to find all the things it did with case, spacing and re-typing }
  5.  
  6. Program FormPas_Demo;
  7.  
  8. Procedure TEXTDUMP;   { Dump the complete character sets to the screen }
  9. Const
  10. cgasizes:Array [0..4]
  11. of word = (1, 3, 7, 3, 3);
  12.   normsizes:Array[0..4] of
  13. word=(1, 4, 7, 4, 4);
  14.  
  15. Var
  16.   font : word;
  17.   viewinfo : viewporttype;  cH : char;
  18.  
  19. Begin { TEXTDUMP }
  20.   For Font := 0 to 4 do
  21.   begin mainwindow (fonts [font]+' character set');
  22.  getviewsettings (viewinfo);
  23.    With Viewinfo do
  24.   begin settextjustify (Lefttext, Toptext);
  25.     Moveto (2, 3);If Font = Defaultfont
  26.     then begin settextstyle (Font, Horizdir, 1); Ch := #0; Repeat
  27.  outtext(Ch);
  28.  If (Getx + Textwidth ('M')) > (X2-X1)
  29.  then Moveto(2, Gety + textheight ('M')+3); Ch:=Succ(Ch);
  30. Until (Ch >= #255); end else
  31.    Begin If Maxy < 200
  32.    then Settextstyle(font,Horizdir,cgasizes[font])
  33.    else Settextstyle(font,horizdir,Normsizes[Font]);
  34.    Ch := '!';
  35.    repeat Outtext (Ch);
  36.    If (Getx + Textwidth ('M')) > (X2-X1)
  37.    Then Moveto (2, Gety + Textheight ('M')+3);
  38.    Ch := Succ (Ch);
  39.    Until (Ord (Ch) = Ord ('~')+1); end;
  40.    end;{ with }
  41.    Waittogo;
  42. end;{ for loop }
  43. end;{ TextDump }
  44.  
  45. Begin  { FormPas_Demo }
  46. end;